home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok32 / patterns / testpatterns.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  42 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    TestPatterns.mod
  4.     :Contents.   test module for Patterns
  5.     :Author.     Nicolas Benezan [bne]
  6.     :Address.    Postwiesenstr. 2, D7000 Stuttgart 60
  7.     :Phone.      711/333679
  8.     :Copyright.  Public Domain
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga A+L V3.27d
  11.     :Imports.    Patterns [bne]
  12.     :History.    V1.0 [bne] 01.Jan.1990
  13.  
  14. **********************************************************************)
  15.  
  16. MODULE TestPatterns;
  17.  
  18. FROM InOut      IMPORT ReadString, WriteString, WriteLn;
  19. FROM Patterns   IMPORT Match;
  20.  
  21. VAR
  22.   Pattern, String: ARRAY [0..79] OF CHAR;
  23.  
  24. BEGIN
  25.   WriteString ("Pattern Test (enter empty string to quit)");
  26.   WriteLn;
  27.   WriteString ("Pattern: ");
  28.   ReadString (Pattern);
  29.   REPEAT
  30.     WriteString ("String: ");
  31.     ReadString (String);
  32.     IF Match (Pattern, String) THEN
  33.       WriteString ("matches");
  34.     ELSE
  35.       WriteString ("doesn't match");
  36.     END;
  37.     WriteLn;
  38.   UNTIL String[0] = CHR (0);
  39. END TestPatterns.
  40.  
  41.  
  42.